home *** CD-ROM | disk | FTP | other *** search
/ Data Base of the Video Yearbook 1995 / Data Base of the Video Yearbook 1995 - Disc 1.iso / cosmos / gatu.dir / 00035.ls < prev    next >
Encoding:
Text File  |  1995-12-21  |  479 b   |  15 lines
  1. on drawpict month
  2.   global monthdata, mydatebase, yubicurs
  3.   searchdata(month)
  4.   set kazu to the number of items in monthdata
  5.   repeat with n = 10 to 11
  6.     set the cursor of sprite n to 0
  7.   end repeat
  8.   set yubicurs to list(904, 905)
  9.   repeat with n = 1 to kazu - 1
  10.     set nom to item n of monthdata
  11.     getpicture("PICT:PAC_M:", item 10 of line value(nom) of mydatebase & value(nom), the name of cast (n + 1))
  12.     set the cursor of sprite (n + 1) to yubicurs
  13.   end repeat
  14. end
  15.